home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / fgl110c.zip / 13-01.C < prev    next >
Text File  |  1992-01-31  |  580b  |  33 lines

  1. #include <fastgraf.h>
  2. #include <stdio.h>
  3.  
  4. void main(void);
  5.  
  6. void main()
  7. {
  8.    int freq;
  9.  
  10.    printf("20 Hz tone...\n");
  11.    fg_sound(20,3);
  12.    fg_waitfor(18);
  13.  
  14.    printf("100 Hz tone...\n");
  15.    fg_sound(100,3);
  16.    fg_waitfor(18);
  17.  
  18.    printf("1000 Hz tone...\n");
  19.    fg_sound(1000,3);
  20.    fg_waitfor(18);
  21.  
  22.    printf("warble...\n");
  23.    fg_sound(400,1);
  24.    fg_sound(410,1);
  25.    fg_sound(400,1);
  26.    fg_sound(410,1);
  27.    fg_waitfor(18);
  28.  
  29.    printf("sliding tone from 100 to 500 Hz...\n");
  30.    for (freq = 100; freq <= 500; freq+=10)
  31.       fg_sound(freq,2);
  32. }
  33.